inherited ClientsFrame: TClientsFrame
  Width = 784
  Height = 599
  Padding.Left = 25
  Padding.Top = 20
  Padding.Right = 25
  Padding.Bottom = 25
  ExplicitWidth = 784
  ExplicitHeight = 599
  object TopPanel: TPanel
    AlignWithMargins = True
    Left = 25
    Top = 20
    Width = 734
    Height = 50
    Margins.Left = 0
    Margins.Top = 0
    Margins.Right = 0
    Margins.Bottom = 15
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object RightPanel: TPanel
      Left = 552
      Top = 0
      Width = 182
      Height = 50
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object Label1: TLabel
        Left = 6
        Top = 0
        Width = 25
        Height = 16
        Caption = 'Nimi'
      end
      object SearchBox: TEdit
        Left = 6
        Top = 20
        Width = 174
        Height = 24
        TabOrder = 0
      end
      object CheckBox1: TCheckBox
        Left = 83
        Top = 1
        Width = 97
        Height = 17
        Caption = 'v'#245'i m'#228'rkused'
        TabOrder = 1
      end
    end
    object LeftPanel: TPanel
      Left = 0
      Top = 0
      Width = 552
      Height = 50
      Align = alClient
      BevelOuter = bvNone
      Padding.Right = 6
      Padding.Bottom = 7
      TabOrder = 1
      object Label15: TLabel
        Left = 0
        Top = 0
        Width = 34
        Height = 16
        Caption = 'Grupp'
      end
      object Label5: TLabel
        Left = 143
        Top = 0
        Width = 45
        Height = 16
        Caption = 'Piirkond'
      end
      object Label16: TLabel
        Left = 286
        Top = 0
        Width = 29
        Height = 16
        Caption = 'T'#252#252'p'
      end
      object DeptGroupCombo: TComboBox
        Left = 0
        Top = 20
        Width = 137
        Height = 24
        Style = csDropDownList
        ItemHeight = 16
        TabOrder = 0
        Items.Strings = (
          'K'#245'ik grupid')
      end
      object ComboBox1: TComboBox
        Left = 143
        Top = 20
        Width = 137
        Height = 24
        Style = csDropDownList
        ItemHeight = 16
        TabOrder = 1
        Items.Strings = (
          'K'#245'ik piirkonnad')
      end
      object CondCombo: TComboBox
        Left = 286
        Top = 20
        Width = 104
        Height = 24
        Style = csDropDownList
        ItemHeight = 16
        TabOrder = 2
        Items.Strings = (
          'Firmad'
          'Isikud'
          'Mehed'
          'Naised')
      end
    end
  end
  object Grid: TDBGrid
    Left = 25
    Top = 85
    Width = 734
    Height = 297
    Align = alClient
    DataSource = Source
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'NIMI'
        Width = 162
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TEL'
        Width = 102
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EMAIL'
        Width = 124
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GRUPP'
        Width = 109
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PIIRKOND'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'REG_ISIKU_KOOD'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'KAARDI_KOOD'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MARKUSED'
        Visible = True
      end>
  end
  object BottomPanel: TPanel
    AlignWithMargins = True
    Left = 25
    Top = 402
    Width = 734
    Height = 172
    Margins.Left = 0
    Margins.Top = 20
    Margins.Right = 0
    Margins.Bottom = 0
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object ChangesPanel: TPanel
      AlignWithMargins = True
      Left = 537
      Top = 0
      Width = 197
      Height = 172
      Margins.Left = 15
      Margins.Top = 0
      Margins.Right = 0
      Margins.Bottom = 0
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object TitleLabel: TLabel
        Left = 1
        Top = 0
        Width = 85
        Height = 19
        Caption = 'Muudatused'
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 0
        Top = 40
        Width = 113
        Height = 16
        Caption = 'Muudetud kliente: 0'
        Enabled = False
      end
      object SaveButton: TButton
        Left = 0
        Top = 144
        Width = 122
        Height = 25
        Caption = 'Salvesta'
        Enabled = False
        TabOrder = 0
      end
      object CancelButton: TButton
        Left = 128
        Top = 144
        Width = 67
        Height = 25
        Caption = 'T'#252'hista'
        Enabled = False
        TabOrder = 1
      end
    end
    object DetailPages: TPageControl
      Left = 0
      Top = 0
      Width = 522
      Height = 172
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 1
      object TabSheet1: TTabSheet
        Caption = 'Andmete t'#228'psustus'
        DesignSize = (
          514
          141)
        object Label10: TLabel
          Left = 16
          Top = 51
          Width = 98
          Height = 16
          Caption = 'Registr.- aadress'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object Label4: TLabel
          Left = 182
          Top = 52
          Width = 81
          Height = 16
          Caption = 'Posti- aadress'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object Label6: TLabel
          Left = 363
          Top = 47
          Width = 55
          Height = 16
          Caption = 'M'#228'rkused'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label13: TLabel
          Left = 16
          Top = 3
          Width = 29
          Height = 16
          Caption = 'T'#252#252'p'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object NameLabel1: TLabel
          Left = 128
          Top = 4
          Width = 44
          Height = 16
          Caption = 'Eesnimi'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object NameLabel2: TLabel
          Left = 294
          Top = 4
          Width = 50
          Height = 16
          Caption = 'Perenimi'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object DBMemo3: TDBMemo
          Left = 16
          Top = 69
          Width = 160
          Height = 59
          DataField = 'REG_AADRESS'
          DataSource = Source
          TabOrder = 0
        end
        object DBMemo1: TDBMemo
          Left = 182
          Top = 69
          Width = 175
          Height = 59
          DataField = 'POSTIAADRESS'
          DataSource = Source
          TabOrder = 1
        end
        object DBMemo2: TDBMemo
          Left = 363
          Top = 69
          Width = 134
          Height = 59
          Anchors = [akLeft, akTop, akRight]
          DataField = 'MARKUSED'
          DataSource = Source
          TabOrder = 2
        end
        object TypeCombo: TDBComboBox
          Left = 19
          Top = 21
          Width = 103
          Height = 24
          Style = csDropDownList
          DataField = 'TYYP'
          DataSource = Source
          ItemHeight = 16
          Items.Strings = (
            'Isik'
            'Firma'
            'Naine'
            'Mees')
          TabOrder = 3
        end
        object NameEdit1: TDBEdit
          Left = 128
          Top = 21
          Width = 160
          Height = 24
          DataField = 'EESNIMI'
          DataSource = Source
          TabOrder = 4
        end
        object NameEdit2: TDBEdit
          Left = 294
          Top = 19
          Width = 175
          Height = 24
          DataField = 'PERENIMI'
          DataSource = Source
          TabOrder = 5
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Statistika'
        ImageIndex = 1
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
      end
      object TabSheet4: TTabSheet
        Caption = 'Hulgi muutmine'
        ImageIndex = 3
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
      end
      object TabSheet5: TTabSheet
        Caption = 'Mitmele m'#252#252'mine'
        ImageIndex = 4
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object Label3: TLabel
          Left = 24
          Top = 16
          Width = 208
          Height = 16
          Caption = 'Valitud on x klienti, m'#252#252' k'#245'igile neile'
        end
        object ComboBox2: TComboBox
          Left = 24
          Top = 38
          Width = 208
          Height = 24
          ItemHeight = 0
          TabOrder = 0
          Text = 'ComboBox2'
        end
        object Button1: TButton
          Left = 157
          Top = 96
          Width = 75
          Height = 25
          Caption = 'OK'
          TabOrder = 1
        end
      end
    end
  end
  object Source: TDataSource
    DataSet = Ds
    Left = 448
    Top = 128
  end
  object Ds: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'Provider'
    Left = 480
    Top = 128
    object DsID: TIntegerField
      FieldName = 'ID'
      Required = True
    end
    object DsEESNIMI: TStringField
      FieldName = 'EESNIMI'
    end
    object DsNIMI: TStringField
      FieldName = 'NIMI'
      Required = True
      Size = 50
    end
    object DsPERENIMI: TStringField
      FieldName = 'PERENIMI'
      Size = 30
    end
    object DsNIME_LISA: TStringField
      FieldName = 'NIME_LISA'
    end
    object DsTEL: TStringField
      FieldName = 'TEL'
    end
    object DsEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object DsMARKUSED: TStringField
      FieldName = 'MARKUSED'
      Size = 500
    end
    object DsREG_AADRESS: TStringField
      FieldName = 'REG_AADRESS'
      Size = 100
    end
    object DsPOSTIAADRESS: TStringField
      FieldName = 'POSTIAADRESS'
      Size = 100
    end
    object DsGRUPP: TStringField
      FieldName = 'GRUPP'
      Size = 50
    end
    object DsPIIRKOND: TStringField
      FieldName = 'PIIRKOND'
      Size = 50
    end
    object DsKONTAKTISIK: TStringField
      FieldName = 'KONTAKTISIK'
      Size = 50
    end
    object DsREG_ISIKU_KOOD: TStringField
      FieldName = 'REG_ISIKU_KOOD'
    end
    object DsKAARDI_KOOD: TStringField
      FieldName = 'KAARDI_KOOD'
    end
    object DsTYYP: TSmallintField
      FieldName = 'TYYP'
    end
    object DsON_TARNIJA: TSmallintField
      FieldName = 'ON_TARNIJA'
    end
    object DsFOTO: TBlobField
      FieldName = 'FOTO'
      Size = 1
    end
  end
  object Provider: TDataSetProvider
    DataSet = Query
    Left = 512
    Top = 128
  end
  object Query: TSQLDataSet
    SchemaName = 'sysdba'
    GetMetadata = False
    CommandText = 
      'select'#13#10'id,'#13#10'nimi,'#13#10'eesnimi,'#13#10'perenimi,'#13#10'nime_lisa,'#13#10'tel,'#13#10'email' +
      ','#13#10'markused,'#13#10'reg_aadress,'#13#10'postiaadress,'#13#10'grupp,'#13#10'piirkond,'#13#10'ko' +
      'ntaktisik,'#13#10'reg_isiku_kood,'#13#10'kaardi_kood,'#13#10'tyyp,'#13#10'on_tarnija,'#13#10'f' +
      'oto'#13#10'from KLIENDID'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = ProgramModule.Connection
    Left = 544
    Top = 128
  end
end
